home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpgt.arc / PURSUIT.CTY < prev    next >
Text File  |  1987-03-16  |  402b  |  24 lines
  1. SEND "C PURSUIT,"
  2. SEND %3
  3. SEND ","
  4. SENDLN %4
  5. GETLN V9
  6. CASE %9 OF
  7.  ~ CONNECT
  8.    BEEP
  9.    BEEP
  10.    BEEP
  11.    CLEAR
  12.    WRITE "You are now connected to the PC-PURSUIT BBS"
  13.    WRITELN
  14.    WRITELN
  15.    WRITELN "Press ALT-X to disconnect from node"
  16.    ONLINE
  17.    call getcity.scr
  18.  ~ BUSY
  19.    WRITELN
  20.    WRITE "Cannot connect with PC-PURSUIT BBS"
  21.    WRITELN ", it is BUSY!"
  22.    WAIT FOR "@"
  23. ESAC
  24.